home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / demos / orthocircs.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  673 b   |  20 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.956224, -0.0342, .invisible, "1");
  3. v2 = .free(0.917921, -0.0342, .invisible, "2");
  4. l1 = .l.vv(v1, v2);
  5. v3 = .vonl(l1, -0.718194, -0.0342, .invisible, .plus);
  6. v4 = .vonl(l1, -0.072503, -0.0342, .invisible, .plus);
  7. v5 = .vonl(l1, -0.285909, -0.0342, .plus);
  8. c1 = .c.vv(v3, v4);
  9. l2 = .l.vlperp(v5, l1, .invisible);
  10. v6 = .v.lc(l2, c1, 1, .invisible);
  11. l3 = .l.vv(v3, v6, .invisible);
  12. l5 = .l.vlperp(v6, l3, .invisible);
  13. v7 = .v.ll(l5, l1, .invisible);
  14. v8 = .v.ll(l5, l5);
  15. c3 = .c.vv(v7, v6, .smear);
  16. .text("Orthogonal Circles:");
  17. .text("");
  18. .text("Move the cross to generate the set of circles orthogonal to the");
  19. .text("fixed circle.");
  20.